home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / TIMING.SWG / 0004_TIMELOOP.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  478b  |  31 lines
  1. {$A+,B-,D-,E-,F-,I-,N-,O-,R-,S-,V-}
  2.  
  3. Program TimeNullRoutine;
  4.  
  5. Uses
  6.   TpTimer;
  7.  
  8. Var
  9.   Count : Byte;
  10.  
  11. Procedure DoNothing;
  12. begin
  13. end;
  14.  
  15. Var
  16.   Loop : Word;
  17.   Start,
  18.   Stop : LongInt;
  19.  
  20. begin
  21.   Start := ReadTimer;
  22.   For Loop := 1 to 1000 do
  23.     DoNothing;
  24.   Stop := ReadTimer;
  25.   WriteLn('Time = ', ElapsedTimeString(Start, Stop), ' ms')
  26. end.
  27.  
  28. {
  29.   ...Well running the Program listed above, 1000 nul loops time
  30.   in at 3.007 miliseconds on my 386SX-25.
  31. }